Micom Basic 1995 October/CD [BM9510].bin/basic/f_basic/list3/list3.bak

Text File | 1995-08-17 | 4.2 KB | 191 lines

#include "f1a0Lww3.bi"

declare sub MAIN edecl()
declare sub MY edecl ()
declare sub WA_V edecl ()
declare sub BO_V edecl ()
declare sub INKEY_LR edecl ()
declare sub TENSOU edecl()
declare sub HANTEI edecl()
declare sub HAIKEI_V edecl()
declare sub LBMPBUTTON_ON edecl()
declare sub RBMPBUTTON_ON edecl()
declare sub NAGERUBUTTON_ON edecl()
declare sub OWARIBMPBUTTON_ON edecl()
declare sub PSCROLL_CHANGE edecl ()

var shared MYCHAR as object
var shared MYCHAR_S as object
var shared MYX as integer
var shared WAX as integer
var shared WAY as integer
var shared PW as integer
var shared DG as integer
var shared BO as object
var shared BO_S as object
var shared BOX as integer
var shared PICTURE1 as object
var shared PICTURE2 as object
var shared HAIKEI as object
var shared PTEXT as object
var shared PSCROLL as object
var shared POI as integer
var shared WANUM as integer
var shared POITEXT as object
var shared NUMTEXT as object

BITMAPOBJECT MYCHAR
BITMAPOBJECT MYCHAR_S
BITMAPOBJECT BO
BITMAPOBJECT BO_S
BITMAPOBJECT HAIKEI

PICTURE1.ATTACH GETDLGITEM("picture1")
PICTURE2.ATTACH GETDLGITEM("picture2")
PTEXT.ATTACH GETDLGITEM("ptext")
POITEXT.ATTACH GETDLGITEM("poitext")
NUMTEXT.ATTACH GETDLGITEM("numtext")
PSCROLL.ATTACH GETDLGITEM("pscroll")

HAIKEI.LOADBITMAPFILE "haikei.bmp"
MYCHAR.LOADBITMAPFILE "my.bmp"
MYCHAR_S.LOADBITMAPFILE "my_s.bmp"
BO.LOADBITMAPFILE "bou.bmp"
BO_S.LOADBITMAPFILE "bou_s.bmp"
BOX=500
PW=50
POI=0:WANUM=2

randomize time

POITEXT.SETWINDOWTEXT str$(POI)
NUMTEXT.SETWINDOWTEXT str$(WANUM+1)
MAIN

while 1
    WAITEVENT
wend

sub MAIN()
MYX=50:WAX=100:WAY=200
*AW
BOX=rnd(1)*550
if BOX<300 then *AW
HAIKEI_V:MY:BO_V:TENSOU
end sub

sub LBMPBUTTON_ON()
    if MYX<10 then
         MYX=0:beep
    else
        HAIKEI_V:BO_V:MYX=MYX-10:MY:TENSOU
        WAX=WAX-10
    end if
end sub

sub RBMPBUTTON_ON()
    if MYX>90 then
        MYX=100:beep
    else
        HAIKEI_V:BO_V:MYX=MYX+10:MY:TENSOU
        WAX=WAX+10
    end if
end sub

sub MY()
    'üÖé╠â}âXâNé≡ò\Ī
    PICTURE1.SETDRAWMODE 9
    PICTURE1.DRAWBITMAP MYCHAR_S,MYX,215
    'Ä└ì█é╠üÖé≡ò\Ī
    PICTURE1.SETDRAWMODE 15
    PICTURE1.DRAWBITMAP MYCHAR,MYX,215
end sub

sub WA_V()
    HAIKEI_V:BO_V:beep
    'üÖé╠â}âXâNé≡ò\Ī
    PICTURE1.SETDRAWMODE 9
    PICTURE1.DRAWBITMAP MYCHAR_S,WAX,WAY
    'Ä└ì█é╠üÖé≡ò\Ī
    PICTURE1.SETDRAWMODE 15
    PICTURE1.DRAWBITMAP MYCHAR,WAX,WAY
    TENSOU
end sub

sub BO_V()
    'ÆàÆnô_é╠â}âXâNé≡ò\Ī
    PICTURE1.SETDRAWMODE 9
    PICTURE1.DRAWBITMAP BO_S,BOX,220
    'ÆàÆnô_é╠üÖé≡ò\Ī
    PICTURE1.SETDRAWMODE 15
    PICTURE1.DRAWBITMAP BO,BOX,220
end sub

sub NAGERUBUTTON_ON()
DG=45:RD=DG*(3.14/180)
XX=(PW/5)*cos(RD)
while WAX<=600 and WAY<=200
    WAX=WAX+XX
    WAY=WAY-(PW/10)*sin(RD)
    if PW>0 then RD=RD+10/PW
    if WAY>=200 then
        exit
    end if
    WA_V
wend
WA_V:HANTEI
MAIN
end sub

sub HANTEI()
HH=abs(WAX-BOX)
select case HH
        case is>=80
             A%=MESSAGEBOX("Ä╕ös","é¬é±é╬éΩüI",0,0)
             if WANUM=0 then
                 A%=MESSAGEBOX("Game over","ÅIù╣é╡é▄é╖",0,0):end
             else
                 WANUM=WANUM-1
                 NUMTEXT.SETWINDOWTEXT str$(WANUM+1)
             end if
        case 50 to 80
             A%=MESSAGEBOX("Ä╕ös","é¿é╡ü`éó",0,0)
             if WANUM=0 then
                 A%=MESSAGEBOX("Game over","ÅIù╣é╡é▄é╖",0,0):end
             else
                 WANUM=WANUM-1
                 NUMTEXT.SETWINDOWTEXT str$(WANUM+1)
                 POI=POI+1
                 POITEXT.SETWINDOWTEXT str$(POI)
             end if
        case is < 50
             A%=MESSAGEBOX("ɼî≈üI","é¿é▀é┼é╞éñüIüI",0,0)
             POI=POI+2
             POITEXT.SETWINDOWTEXT str$(POI)
end select
end sub

sub PSCROLL_CHANGE()
    PW=PSCROLL.GETSCROLLPOS
    PTEXT.SETWINDOWTEXT str$(PW)
end sub

sub HAIKEI_V()
    'öwîié╠ò\Ī
    PICTURE1.SETDRAWMODE 13
    PICTURE1.DRAWBITMAP HAIKEI,0,0
end sub

sub OWARIBMPBUTTON_ON()
    H%=MESSAGEBOX("ÅIù╣","é¿éφéΦé▄é╖é⌐üH",4,1)
    if H%=5 then
        end
    end if
end sub

sub TENSOU()
    'ò`é⌐éΩé╜ârâbâgâ}âbâvé≡ô]æù(picture1é⌐éτpicture2é╓)
    PICTURE2.BITBLT 0,0,600,300,PICTURE1,0,0
end sub